IF STAT= ''  THEN
             IF QTYS<1,LINE>#'' THEN
               MESS 5,3,BELL:'Type must have a value!'
               GOTO IN.STAT
             END
          END



IF STAT= ''  THEN
             IF (MOVE>2 OR MOVE<0) OR QTYS<1,LINE>#'' THEN
               MESS 5,3,BELL:'Type must have a value!'
               GOTO IN.TYP
             END
          END



REQ.FLDS = ''
  IF STAT = '' THEN REQ.FLDS<-1> = 'Location Type'
          IF REQ.FLDS # '' THEN
               MESS 5,3,BELL:'Location Type must have a value!'
               GOTO IN.STAT
             END
          END
